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7tl3 memorandum describes a LISP program for deciding 
,^-ttoer an expression In the .prepositional calculus is a taut- 
ology according to Wang's algorithm Wang's algorithm is an 
excellent example of the kind of algorithm which is convenient- 
ly programmed in LISP, and the main purpose of this memorandum 
is to help would-be users of LXSi see how to use it. 

ls The Wang algori thm .. Wa c.uote from pages 5 and 6 of 

Wang's paper . 

"The_^o£OSiy£na^_eal^^ 

Sin-e we are concerned with practical feasibility, it is. pre- 
ferable to use more logical ooitwc tives to begin with when we 
wish actually to apply the procedure to concrete cases. For 
this purpose we use the five ua*i;. logical cons tantsj^ (not ), 

4 (conjunction), V (disjunction > ; . 3 (implication), ^(bi- 
conditional), with their usual interpretations. 

A prepositional letter ?, Z, R, M or N, et cetera, is a 
formula (and an "atomic formula')/ If $ .$ are formulae, then 
— <b f d> I lif,4> V l/r,<f> Of^f^ formulae. W.f, 
p arl strings of formulae (each, in particular, might be an 
empty string or a single formula) and $ is a formula, then it, 
<£ p is a string and T-^p is a sequent which, intuitively 
speaking, is true If and only If either some formula in the 
string r (the "antecedent") is false or some formula in the 
string p (the "consequent-) is true, I.e., the conjunction of 
all formulae in the antecedent ioplies the disjunction of all 
formulae in the consequent . 

There are eleven rules of derivation. An initial rule 
states that a sequent with only i.tomic formulae (proposition 
letters) IS a theorem if and only if a same formula occurs on 
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both sides cJ" the arrow * There are two rules for each of the 
five truth /'motions -one Intro* toeing it into the antecedent, 
one introducing it into the coiusequent. One need only reflect 
en the intuitive iueaning of th€ truth functions and the arrow 
sign to be convinced frhat these? rules are indeed correct, La- 
ter on, a proof will be given of their oon^leterass, 'i.e., all 
intuitively valid dequents are provable , and of their consist- 
ency, i#e,, all provable sequent s are intuitively valid, 

PI. Initial rule: if x f ^ are strings of atomic formulae, then 
X —• ■*>-£ 5/j a theorem if so»>e atomic formula occurs on both 
sides oa \he arrow 9 

In the ten ruiea listed be low, X and £ are always strings 
(possibly empty) of atomic formiae. As a proof procedure in 
the usual sense f each proof begins with a finite set of cases 
of PI and continues with successive consequences obtained by 
the other rules * As will be explained below, a proof looks 
like a tree structure growing ;.r the wrong direction* We shall, 
however, be chiefly interested in doing the step backwards „ 
thereby incorporating the process of searching for a proof, 

The rules are so designed that given any sequent, we can 
find the first logical connective, l*e«, the leftmost symbol 
in the whole sequent that is a connect ive, and apply the ap- 
propriate rule to eliminate it, thereby resulting in one or 
two premises which, t^ken together, are equivalent to th* con- 
clusion* This process can be repeated until we reach a finite 
set of sequents with atomic formulae only* Each connective- 
free sequent can then be tested for being a theorem or not, by 
the initial rule. If all of them are theorems, then the or- 
iginal sequent is a theorem and we obtain a proof } otherwise 
we get a counterexample and a disproof* Some simple samples 
will make this clear \ 
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For example, given any theorem of "Princlpia", we can 
automatically prefix an arrow to' it and apply the rules to look 
for a proof » When the main corrective is , it is simpler, 
though not necessary, to replace the main connective by an ar- 
row and proceed. For example: 
•2,45-. t — :^(PVQ)» D* '-P, 
♦5.21: |— : -^ p4~Q • O* P ^£.Q 
can be rewritten and proved as follows. 

*2.4$ -^(Ps/Q)—** ~^p ^y 

(1)— ^ -n/P,PVQ (g) 

(2) P->pvQ (3) 

(3) P_^P,Q 
VALID 



♦5.21. 



-**~ p# 

(1) ~'P ■ 

(2) —P, 

(3) — - Q- 

(4) -**P 
(55 P-* 



Q • *D»-PSQ 
Q-*-P«Q 
Q^P9»Q 



VALID 

(5) Q^P,P,Q 

VALID 



QED 

(1) 
(2) 
(3) 
(4) 

(5) 
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P2a. 
P2b. 

P3a. 
P3b. 

P4a. 
P4b. 

P5a. 
P5b. 

P6a. 
P6b. 



Rule -*•• 
Rule ~- - 

Rule -» 
Rule St 

Rule -* 
Rule v ., 

Rule -> 
Rule Z> 

Rule-> 
Rule ^ 
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If ^ , £ — *► fc,p,th»n V?* x, -^*j> ,|k 

If x,p . ,. — ■ » » r,|»,then X,^*^^ — ** ir ' 

If S-*-X,4,p and5^X,%,p,thenS--^X, <jM^P» 
If X,<£ ,^,p-*»ffvthe« ^ X>^»i^,p— >>¥. 

If £_», A ,^ f \jr #p ,thenT*-^X,<^ v^,p. 

If X, <^,p->ir and X f "^,p^F,then X,d> '.*\k. ,?-&&.. 

If 5", 4 "** ^»y;p,then Y-*>X,4 ^ VVP« 

If X,y,p->ir end X,p«^u%<£, then X,<£ o^p-^ir. 

If 4, C— >X,-*j', p and ^/E-^X^ ,p, then^^X^ai^p. 
If <£, \^,X, p-*,tr *nd %,p^m :t <f> i\lr,then X^> is^, p *$,vi 
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2 * ^ he LI SP program, We define a funetion theorem {VJ 
whose value la truth or falsity according fco whether the sequent 
s Is theorem u 

The sequent 

3: ^ — ^n-^^l'-"^.. 

is represented by the S-expreosion 

s 1 : (ARROW, («f^...,^) # (^,...,^)) 

where in each case the eXlipel£...-«-«':.<ta^.1^^.B't8slng terms. 
Prepositional formulae are represented as follows: 

1. For: "atomic fornula0^/(Wfl^\ f s : '^«!ife^'16e3r) we use 
"atomic symbols" (LISP terminology). 

2. The following table gives our "CaG^idge Polish" way 
of representing propositional ioroulae *it^ given main con- 
nectives v '. .'-■". ;; V. 

(NOT , +fh) 
(AMD,.* 1 ,y l ) 
(or, y 1 ,^ 1 ) 



is represented by 

(ARROW, ( (AND, (NOT,P) , (NOT,Q) ) )> ( (fS^^Q) , (OR,R,S> ) ) 
The S-f unction theor em £f\ is given .in* terms of aux- 
iliary functions as follows: 

theorem (V] » thl^L;FIL|cadrts"}j#a4dr Js^J 
thl[al;a2;a;c} . •• {null |^^fe^|^a^ NIL j NIL ; c) jT- 
member (car (a; cj|v^£at^^ 

thi [prober {ear t§f) ;a^-^aljT-*coii»{car(ji] ;ajQ ;a2 
cdr feJjajiT-^ thljaif ^^r^^||p||^3-*"a2; 

T -> cons (car [a] jaey ; ca#{a] |§J) 



■1. 


'V ^ 


becomes 


2. 


^*Y 


becomes 


3. 


fvy 


becomes 


4. 


^t>y 


becomes 


5. 


yisf 


becomes 


Thus the sequent 
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th2[al;a2jcijc2jc] - {nuU : (e]-^th^^a2;ol$o2);. 

atom (car [p]) — 5»th2 (al ; a2 ; [member {^arj^;cl]-^ci;T--*> 

cons (carjoj jclQ ;c2;cdr [cjj ;T~> th2||t ;a2;cj ; £ 

member (car [o] ; c2]~> c2; T —> 

cons (car [p3;c2;Jj;cdr[cjQ] ! 

thjal;a2;cl;o23 » [nuHQiaj^^^nul^Joaj A thrL 

0dr(a2j",cJ;c2j] 
th is the main predicate through which all the recursions 
take place . theorem , tbi and th2 break up and sort the inf or- 
matior in the sequent for the benefit of tfcu The four argu- 
ments of th are: 

al: atomic formulae on lsft side of arrow 

a2: other formulae on left side of arrow 

cl: atomic formulae on right side of arrow 

c2: other formulae on right side of arrow 
The atomic formulae are kept separate from the others in 
order to make faster the detection of the occurrence of for- 
mula on both sides of the arrow and the finding of the next 
formula to reduce. Each use of th represents one reduction 
according to one of the 10 rules. The formula to be reduced 
is chosen from the left side of the arrow if possible. Ac- 
cording to whether the* formula to be reduced is on the left or 
right we use thi or thr* We have 

th4(u;ai;a2;ci;c2J =£ _ 

car£u] * NQT^thirtcadrCu]ial;a2jci;c2j 

carQiJ » AND"-^th2ii£drCul;ai;attci» c €i 

carQ^ * OR--^thii^adr{^jalja2jci;c23 Athl^Q 

caddr QQ ; ad » a2 jci; caj- 
car[u] * IMPLIES-^ thii(caddr0i|jaiia2;ci;c2l A thir£ 

cadr^iQial ;a£;ei;c2} 
car (u] - EQUIV — -~ -> fch2i[edr[u3; al; a2 ; cl; c 2] A th2r Q 

cdr (u]i at; &2; cl; c2J 
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thr(u;ai}a2jcl;c2j « [_ 

car[u~} * N0T-^^thli[ca<ir[uJ}ai.}a2;ci5o2j 

carQij * AND"-^thir£cadr£u3fai>ja2;cl}c2] A thlr£ 

caddr[u3}»ija2;cijc23 
car£u~l * OR—^-th2r£odr(^^ai^2jclje23 
carjja] « IMPLIES ^thlij|adi , M j cadd*£u3}aifa2}ci}02] 
ear[u] » EQinv^thti{£adr^$<*addri£^ 

caddr [u] ; jadr Cult ai;a2; ci j efJJ 

The functions thjl , thlr, ajtfl, th2r ; tfaXi distribute the 
parts of the reduced formula to the appropriate places in the 
reduced sequent . 

These functions are 

thl£{yjat$a2$cl;o2]j » Qitora [y3-^ member (y;oi) v/ 
th (cons[y;af| jaS^eiiaiJjT '•^jifi^r^^y v 
th^aijcons [v;a23;ci i«2j 

thlr^y;ai;a2;cj}c?] ■« |afe©*&3-^tteajber jyiailv/ 
th(ai$a2}cons{Vjcl) ^ i«2j;T--^^ii^!t>erJyja23N/ 
th ^l;a2j c i ; cons|Vfal*3 j 

thfi(vjai}a2;oi}c2] «* £atom|^f^ 

t h i I [cadr £»] $ eons {eai»f^|f^}i^«i;o23;^'^^'^»her^ 

carLvljciJv 
thi4 J«adrlv3 j ai 5 conn|car £$ 5 «%* clfoajj 
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thlr Jeadr £y3 $ aij aftj W$£^ i T-J&mafoer Q 

ca^f>2;a23v 1 
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th il jvi ; v2 j al j a2; ci ; c2j »= fatora (y ±J -**niember jvi ; c X\ V 
thlr(v2;com(vi jay ;a||e^e^j^i^i8eBjber |yJ}e2] %/ 
thir {v2;ai ; cone (vi ja2^e4}^a]|||; 






Finally the function merober la defined by 

meraber(xjuj * ^nullQi} : /\ fequalfx^aartujjv^^r (x;,^ 



3- The LISP Program aa Wgl ttfe n. In S^a^peaglon s, The pre- 

understand LISP, 
of the preceding 



sent section la redundant for those \ who 
In it we give the translation of ths* 
section Into S-exprese tons . 

We have 
DEFINE (( 
(THEOREM (LAMBDA (S) (TH1 NIL NIL {CADR S) JCAOOR.S)))) 



(TH (LAMBDA (Al A2 Cl C2) (COND ((HULL 
(THR (CAR C2) Al A2 CI (CDR C2));> (T 
CI C2))))) 



(NOT (NULL C2)) 
A2) Al (CDR A2) 









'■■■•■* 

. "'■'£'. 



(TH1 (LAMBDA (Al A2 A C) (COND (i)m& 
(TH2 Al A2 NIL NIL C)) (•? 
(OR (MEMBOB (CAR A) C) (COND ((ATOM 
(TH1 (COND ((MEMBOB (CAR A) Al ) A§) 
(T (CONS (CAR A) Al))) A2 (CDR A) 0)) 
(T (TH1 Al (COND ((MEMBOB (CAR A) A2) 
(T (CONS (CAR A) A2))) (CDR A) C)j 



A) 
(CAR A! 



A2) 
)) 



(TH2 (LAMBDA (hi A2 Cl C2 C) (COfcD 

((NULL C) (TH Al A2 Cl 02)) 

((ATOM (CAR C)) (TH2 Al A2 (COND 

((MEMBOB (CAR C) Cl) Cl) (T 

(CONS (CAR C) Cl))) .C2 (CDR C))) - , 

(T (TH2 Al A2 Cl (COND ((MEMBOB 

(CAR C) C2) C2) (T (CONS (CAR C) C2)}) 

(CDR 0)))))) 



■^^^.vfc-£v K, 
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(THL (LAMBDA (U Al A2 CI C2) ( COWL 

<(EQ (CAR U) (QUOTE NOT)} (THIR (CADR U> Al A2 Cl 02)) 

((EQ (CAR U) (QUOTE AND}) (TH2L (CDR U) Al A2 CI C2>) 

((EQ (CAR U) (QUOTE OR)) (AND (TOIL (CADR V) A3. A2 CI 02) 

(TOIL (CADDR U) Al A2 CI C2) )) 

((EQ (CAR U) (QUOTE IMPLIES)) (ANir (TOIL (CADj» U) Al A2 CI 

C2) (THIR (CADR U) Al A2 CI C2) )) 

((EQ (CAR U) (QUOTE EQUIV)) (AMD (TO2L (CDR U) Al A2 CI C2) 

(TO2R (CDR U) Al A2 CI C2) )) 

(T (ERROR (LIST (QUOTE THL) U Al A2..C1 C2))) 

>.»■ ' 

(TOR (LAMBDA (U Al A2 CI .02) (COND 

((EQ (CAR U) (QUPTE MOT)) (TOIL (CADR U) Al W CI C2)) 

((EQ (CAR U) (QUOTE AMD)) (Ato (THIR (OADR 1|| Al A2 CI C2) 

(THIR (CADDR U) Al A2 CI C2) )) 

((EQ (CAR U) (QUOTE OR)) (TH2R (COR U) Al A2 Cl C2)> 

((EQ (CAR U) (QUOTE IMPLIES)) (TOU (CADR U) (CADDR U) 

Al A2 CI C2)) 

((EQ (CAR U) (QUOTE BQUJ7)) (AID (TO11 (CADR ^U) (CADDR U) 
Al A2 CI C2) (TH11 (CADDR U) (CADR II) Al AS 01 C2) )) 

(T (ERROR (LIST (QUOTE TOR) U Al At 01 C2))) 

■in-. .■ ^:-.'-^^r '.'.'■ 



(TOIL (LAMBDA (V Al A2 CI C2 ) (COW) 
((ATOM V) (OR (MEMBER .7 Cl) 
(TO (CONS V Al) A2 Cl 02) )) 
!(T (OR (MEMBER V C2) (TO Al (CONS * AS) Cl 



Gfc) )) 



(THIR (LAMBDA (V Al A2 Cl 02) (COND 

((ATOM V) (OB (MEMBER V Al ) 

(TO Al A2 (CONS 7 Cl) 02) )) 

(T (OR (MEMBER 7 A2) (TO Al A2 Cl 

))) 
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(TH2L (LAMBDA (V Al A2 Cl C2) (COMD € 
{{ATOM (CAR V)) (OR (MEMBER (CAR '7) Cl) ,,_.; 
(TH1L (CADP V) (COHS {CAR V) Al ) A2 CI C2))> 
(T (OR (MEMBER (CAR V) C2) (THli (CABfi V) ||f 

■ A2) ci C2))) . ' ■ ^ y :% ? p 

(TH2R (LAMBDA (V Al A2 Ci C2) (COUD ; 
((ATOM (CAR V)) (OR (MEMBER (CAR /) Al) " 
(TH1R (CADR V) Al A2 (CONS (CAR 1$ Cl) C2 )£| 
(T (OR (MEMBER (CAR V) A2) pHXR (CADR V) 
(CCNS (CAR V) C2)))) 
■ ))) 



(CAR V) 



A2 CI 



lit Al) A2 Cl 



(TH11 (LAMBDA (VI V2 Al A2 Cl C2) (COND 
((ATOM VI) (OR (MEMBER VI Cl) (TH1& VS 

(T (OR (l^MBER VI C2) (TH1R V2 Al t§Q»S VI Ag) Cl C2))) 
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(MEMBER MEMBOB) 
)) 









This causes the functions motioned t0 : f*r defined* 
In our test run we next gav* 

TRAGUS {($H)) () 

which caused the argusients and values of 
printed each time the function ea«e ^ in 
cidentally, It turns cut that t 
stitute a proof In Wang's s%le ai 




function fch to be 
the recursion. Ac^ 
essentially con- 
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ln order fco apply the method to the sequent 

p -*• pvq 

we write ' 

THEOREM 
((ARROW,{P},C{0R,P,Q)))) 



**• Wang's A lgorithm and Amclguo.ua ffunotions ♦ Ttols section 
contains a remark on the theory of computation suggested by the 
experience of programming Wang's algorithm. The functions giv- 
en in section 2 owe some of their complexity to an effort to gain 
efficiency and could be made still more efficient at the cost of 
greater complexity. Namely, in the verbal Inscription of the al- 
gorithm in section 1 it is not specified hoi the term in the se- 
quent to be acted on first is eta sen. This choice. does not af- 
fect the ultimate result , i.e. whether a sequent is found to be 
a theorem, but does affect the time require^. 

This suggests that for the purposes of proving theorems 
about computable functions we introduce the concept of ambigu- 
ous function and certain of its properties. 

An ambiguous function f itsaigna to certain n-tuplets 



x 



1' 



• « » 



r~> 



,x M a value f (x. , . . .,x„). However, this value is not com- 
_ n i. n 

pletely determined by the function f and the n-tuplet x 1 ,...x R 

but may be any member of a set UfljXp.,.,)!^). No mechanism, 
probabilistic or otherwise is provided for deciding which ele- 
ment will be chosen. Ambiguous functions may be combined to 
get new functions by composition, conditional expressions, and 

recursion. >'S : ^' 

In order to consider the clas* C(L*?j of ambiguous func- 
tions computable in terms of a class of basic functions f , 
(This corresponds to C^'j} in C'O) we introduce the ambiguity 
operator amb, amb(x,y) is an aiablguoua function of x and y 
whose value may be either x or y. Other ambiguities may be 
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Introduced by using arab. For example we cah|4eflne '. 

amblisi #J « {^nulljjOAhhlllcdrtil] -* carl J]; 
^nullMM^nulltadrf J}3 -»* amblcapCiljawblislcdrtl] 3 } J 

Howet-er, unless we have a list of all atomic symbols available 
we cannot define £ function whose value is aifcljpious among all 
atorric symbols* 

We can introduce a tran*4bi^*-.^l : i*iO!ft'; ; i^'':.i^.eoi»nt between 
ambiguous functions We say that f is a descendant of g , 
written 

f«4s ' 

if for every x every possible value of f(x) is also a pos- 
sible value of g(x) . The opera tiopis j^ed |^ d#f ine new func- 
tions in terms of old one3, l,e« coa|poSition| conditional ex- 
pressions and recursion preserve descent in -file following sense: 



If a function 
of a function 



h-, 



ls defined by a ;i^eursive:lisf inition in terms 



1, and other fjnctions, and a function hg 
defined in the very saras way bat with f^ replaced by f g j 



is 



i: follows that hjiihg. 
A property P o * functions such that if 



then, from f ,.<£. f ,; 



and 



f satisfies P 
g*<f implies that g satisfies r IS called hereditary . 

We apply these concepts -to the example <jf Wang's algorithm 
as follows: 

1. We define a predicate reducedta] which is true if and 
only if the aeqiient hay only atonic terms, 

2 We define dup{s] which is true if the reduced sequent s 
has a common term, on the right and -left,. '■ W. ," 

3„ We define reduoei(s;termi and reduc#2fsjterm] which gives 
the two sequent^ into which the .'sequent a reduces when it is 
attacked at tersn {one of these may be trivM|;| v 

4. We define terma[s}, the iist of te**a* of the sequent. 
Wang's algorithm for ciatermining whether a sequent is a theorem 
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is given by 









ti^~V 



wans[s] * fredMbcea|s^^;^I^C^J;^p : 
wangl reducetji [ s ; arnlil to [ tori^s { 8 3 J J 3 A 
wang I reduced^ { a ; anibl is tt^ttif*} J 1 1 \M\ I 

•nils is an apparently a^ig^.^r-^in^i&dl^ 
presence of attiblla , However, It is **i©i "hf *«£ 
iy it converges for each sequent s 
or P according to whether a is -ft 
hereditary and hence applies :to *»*|.) 
wang * 

. Particular functions realizing 
term to be raducsd In a sequent '■"in t#|fi| 
ever, we need only show that they ^gf 
der to show that they give the rig! 

All this suggests that the concept 
may have soiae Importance in the thea*y 




of the 
ow that actual- 
result is * 
property is 
the function 

e&CHBBe tfa& 
Hew- 
of wans in cr- 



us function 
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